home *** CD-ROM | disk | FTP | other *** search
/ Secret Rendez-vous / Secret Rendez-vous.iso / pc / starware.exe / starware.DXR / 00031_EJECT.PIC.ls < prev    next >
Encoding:
Text File  |  1995-05-02  |  398 b   |  16 lines
  1. on mouseDown
  2.   puppetSound("mouse down")
  3.   set variable to the clickOn
  4.   set oldLocV to the locV of sprite variable
  5.   set newLocV to oldLocV + 2
  6.   set the locV of sprite variable to newLocV
  7.   set oldLocH to the locH of sprite variable
  8.   set newLocH to oldLocH + 2
  9.   set the locH of sprite variable to newLocH
  10.   repeat while the stillDown
  11.     updateStage()
  12.   end repeat
  13.   updateStage()
  14.   quit()
  15. end
  16.